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-- Interpret. Mesa 
-- Edited by: 

Sandman, December 20, 1977 1:02 PM 

Barbara, July 31, 1978 3:14 PM 

DIRECTORY 

AUoDefs: FROM "altodefs" USING [Address], 
ControlDefs: FROM "control defs" USING [ 

GlobalFrameHandle, Lreg, MaxParmsInStack, StateVector], 
CoreSwapDefs: FROM "coreswapdef s" USING [SVPointer], 
DebugBreakptDefs: FROM "debugbreakptdef s" USING [EntryToBTI] , 
DebugData: FROM "debugdata" USING [StatePtr], 
DebuggerDefs: FROM "debuggerdef s" USING [ 

addbitaddrs, Display, DumpValsFromState, FieldContext, FormatRecord, 

fullbitaddress, f ullsymaddress , GetValue, InitSOP, Lookup, LookupProc, 

SA, SearchForModuleSym, SOPointer, SymbolObject] , 
DebuglnterpretDef s : FROM "debuginterpretdef s" , 
DebugMiscDefs: FROM "debugmiscdef s" USING [ 

DebugAbort, DFreeString, DGetString, DReadNumber, LookupFail, 

StringExpressionToNumber , WriteEOL] , 
DebugSymbolOefs: FROM "debugsymboldefs" USING [ 

DAcquireSymbolTable, DReleaseSymbolTable, SymbolsForGFrame] , 
DebugUtilityDefs: FROM "debugutil itydef s" USING [ 

MakeProcedureDescriptor, MREAD, UserCall , UserWriteSubString] . 
lODefs: FROM "iodefs" USING [ 

CR, LineOverf low, NUL, NumberFormat , ReadChar, ReadEditedString, ReadLine, 

SP, WriteChar, Wri teDecimal , WriteLine, Viri teNumber , WriteOctal, 

WriteString], 
StringDefs: FROM "stringdefs" USING [ 

AppendString, AppendSubString, DeleteSubString, Inval idNumber, 

Substring Descriptor], 
SymbolTableDefs: FROM "symbol tabledefs" USING [SymbolTableBase] . 
SymDefs: FROM "symdefs" USING [ 

CSEIndex. CTXIndex, ISEIndex, ISENull, SEIndex, SENull]; 

DEFINITIONS FROM DebuggerDefs; 

Interpret: PROGRAM 

IMPORTS DebugBreakptDefs, DDptr: DebugData, DebuggerDefs, DebugMiscDefs, 

DebugSymbolOefs, DebugUtilityDefs, lODefs, StringDefs 
EXPORTS DebuglnterpretDefs, DebugMiscDefs » 

BEGIN 

Icall: PUBLIC PROCEDURE [proc: STRING] - 
BEGIN OPEN DebugSymbolOefs; 
state: ControlDefs .StateVector ; 
symbase: SymbolTableDefs. SymbolTableBase; 
gf rame: Control Defs. Global FrameHandle; 
found: BOOLEAN; 
e: CARDINAL; 

psv: CoreSwapDefs .SVPointer ; 
sei: SymDefs . ISEIndex; 
FR: FormatRecord ^ FormatRecord[2 , '«, lODefs.CR, lODefs.NUL, lODefs.NUL, TRUE, TRUE]; 

BEGIN OPEN symbase; 

state, instbyte *- state. stkptr <- 0; 

[found, gframe, e] *- LookupProc[proc] ; 

IF --found THEN ERROR DebugMiscDefs . LookupFail [proc] ; 

symbase ♦- DAcquireSymbolTable [DebugSymbolOefs .Symbol sForGFrame[ gframe]] ; 

sei <r WITH b:{bb+DebugBreakptDefs.EntryToBTI[symbase, e]) SELECT FROM 

Callable => b.id, 

ENDCASE «> SymDefs. ISENull; 
state. dest *~ DebugUtil i tyDef s .MakeProcedureDescriptor[e, gframe]; 
state, source *- REGISTER[ControlDef s . Lreg] ; 
getparams[sei , ©state, symbase 

lUNWIND => DReleaseSymbolTable[symbase]]; 
DebugMiscDefs.wri teEOL[]; 
psv <- DebugUtilityDefs. UserCal l[6state]; 
DumpVal sFromState[sei , 6FR, symbase, psv]; 
DReleaseSymbonable[ symbase]; 
END; 
RETURN 
END; 

getparams: PROCEDURE [bsei: SymDefs . ISEIndex , s: CoreSwapDefs .SVPointer , symbase: SymbolTableDefs .Symbo 
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**lTab1eBase] - 
BEGIN 

i, nwords: CARDINAL; 
typein, typeout: SymDef s .SEIndex; 
termchar: CHARACTER; 

BEGIN OPEN symbase; 

[typein, typeout] ^ TransferTypes[(sob+bsei) . idtype] ; 

IF typein = SymDef s .SENull THEN RETURN; 

nwords ♦- WordsForType[typein] ; 

IF nwords > ControlDef s .MaxParmsInStack THEN 

BEGIN 

lODef s .WriteString[ "Too many parameters"L] ; 

SIGNAL DebugMiscDefs.DebugAbort 

END; 
s.stkptr ^ nwords; 
i ♦- 0; 
UNTIL i >= nwords DO 

BEGIN OPEN lODefs; 

WriteChar[' ]; Wri teOctal [i ] ; WriteChar[ ' : ] ; WriteChar[' ]; 

parmstr +- DebugMiscDef s .DGe tString[40] ; 

termchar <- ReadEdi tedString[parmstr , paramfound, TRUE 
ILineOverf low =«> 

BEGIN WriteString[" String too TongT'L]; GOTO badparam END]; 

SELECT parmstr[0] FROM 
•" «> 

BEGIN 

DebugMiscDef s .DFreeString[parmstr] ; 

WriteString[" -- STRING parameters not supported in the debuggerl "L] ; 
SIGNAL DebugMiscDefs.DebugAbort 
END; 
ENDCASE =>> 
BEGIN 

s.stk[i] <- DebugMiscDef s .StringExpressionToNumber[parmstr, 10 
IStringDef s . Inval idNumber »> 
BEGIN WriteChar['?]; GOTO badparam END]; 
END; 
i 4- i + 1; 
EXITS 

badparam => DebugMiscDef s .DFreeString[parmstr] ; 
END; 

ENDLOOP; 
END; 
RETURN 
END; 

parmstr: STRING; 

paramfound: PROCEDURE [c: CHARACTER] RETURNS [BOOLEAN] = 
BEGIN 
SELECT c FROM 

lODefs.SP, lODefs.CR «> 

IF parmstr[0] # "' OR parmstr[parmstr. 1ength-l] = '" THEN RETURN [TRUE]; 
ENDCASE; 
RETURN [FALSE] 
END; 

outbase: TYPE = {octal, decimal}; 

DisplaylVal: PROCEDURE [v: UNSPECIFIED, b: outbase] » 
BEGIN OPEN lODefs; 
WriteString[" -- "L]; 
SELECT b FROM 

octal => WriteOctal[v] ; 

decimal => WriteDecimal[v]; 

ENDCASE; 
RETURN 
END; 

laddress: PUBLIC PROCEDURE [var: STRING] » 
BEGIN 

so: SymbolObject; 
sop: SOPointer <- 0so; 
sym: DebuggerDefs.fullbit ad dress; 
BEGIN OPEN sop.stbase; 
InitSOP[sop]; 
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IF ~Lookijp[var, FALSE, sop, FALSE, mod] THEN 

SIGNAL Debu gM iscDefs. Lookup Fail[var]; 
IF (seb+sop. sei) .constant THEN 

BEGIN 

IODefs.WriteString[" not addressab1e*'L] ; 

SIGNAL DebugMiscDefs.DebugAbort 

END; 
sym <- addbitaddrs[f ull symaddress[sop], sop.baddr]; 
WITH sym SELECT FROM 

short «> Disp1ayIVal[shortAddr, octal]; 

ENDCASE; 
END; 
RETURN 
END; 

modulestr: STRING; 
typestr: STRING; 
VariantType; SIGNAL « CODE; 

Ipointer: PUBLIC PROCEDURE [a: AltoDefs .Address , type: STRING] - 
BEGIN 

so: SymbolObject; 
sop: SOPointer <- (5so; 
FR: FormatRecord ^ FormatRecord[2, '=, lODefs.CR, lODefs.NUL, lODefs.NUL. TRUE. TRUE]; 

BEGIN OPEN DebugMiscDefs, sop.stbase; 

InitSOP[sop]; 

modulestr ♦- DGetString[40]; 

typestr ♦- DGetString[40]; 

StringDefs.AppendString[to: typestr, from: type]; 

parsetype[typestr , modulestr IVariantType =*> 

BEGIN 

lODef s.WriteString["VariantTypes not yet implemented!"L]; 

DFreeString[ typestr] ; DFreeString[modu1estr] ; 

SIGNAL DebugAbort 

END]; 
IF modulestr. length = THEN 

BEGIN 

IF ~Lookup[typestr, FALSE, sop, TRUE, mod] THEN SIGNAL LookupFail[typestr] 

END 
ELSE 

IF ~SearchForModuleSym[modulestr, typestr, FALSE, sop, TRUE] 
THEN SIGNAL LookupFail [typestr] ; 
sop.baddr.wd *- short[shortAddr:[a]]; 
sop. tsei <- sop. sei ; 
sop.sei <- SymDef s . ISENull ; 
WriteEOL[]; 

Display[sop, @FR, FALSE]; 
DFreeString[modulestr] ; 
DFreeString[ typestr]; 
RETURN 
END; 
END; 

parsetype: PROCEDURE [type: STRING, module: STRING]= 
BEGIN 

i: CARDINAL; 

ss : Str ingDefs.SubStn'ngDes crip tor; 
FOR i IN [0. .type. length) DO 
IF type[i] « ' . THEN 
BEGIN 

ss <- [type, 0, i + 1]; 

StringDef s .AppendSubString [module, 0ss]; 
StringDef s . Appends tring[module, "bcd"L] ; 
StringDef s .DeleteSubString[0ss] ; 
END; 
IF type[i] - lODefs.SP AND i ^ ( type . length-l) 

THEN SIGNAL VariantType; 
ENDLOOP; 
RETURN 
END; 

larray: PUBLIC PROCEDURE [a: STRING, i. n: CARDINAL] « 
BEGIN 

so: SymbolObject; 
sop: SOPointer <- 0so; 
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IrntSOP[sop]; 

IF -DebuggerDefs.Lookup[a, FALSE, sop, FALSE, mod] 

THEN SIGNAL DebugMiscDef s . LookupFail [a] ; 
IarrayPtr[sop, i, n]; 
END; 

larrayPtr: PUBLIC PROCEDURE [sop: SOPointer, i, n: CARDINAL] » 
BEGIN OPEN DebuggerDefs; 
csei: SymDef s .SEIndex; 
isei: SymDef s. SEIndex; 
rsei: SymDef s .CSEIndex; 

FR: FormatRecord ^ FormatRecord[2 , lODefs.NUL. lODefs.SP. lODefs.NUL. lODefs.NUL, FALSE, FALSE]; 
j: CARDINAL; 
csize: CARDINAL; 
packed: BOOLEAN; 

sym: f ull bitaddress *- f unsymaddress[sop] ; 
sa: SA; 
WITH sym SELECT FROM 

short »> sa ♦- shortAddr; 
ENDCASE »> ERROR; 
BEGIN OPEN DebugMiscDefs, sop.stbase; 
SELECT TypeForm[sop.tsei] FROM 

array «=> WITH s:sop.baddr SELECT FROM 

short "> s. shortAddr <- [s. shortAddr + sa]; 
long => s . longAddr . 1 i ♦- s , longAddr. 1 i + sa; 
ENDCASE; 
arraydesc => sop.baddr.wd ^ short[GetValue[sop]]; 
ENDCASE => 

BEGIN IODefs.WriteString[" not an ARRAV'L]; SIGNAL DebugAbort END; 
rsei <- UnderType[sop.tsei]; 
WITH a: (seb + rsei) SELECT FROM 
array «> 
BEGIN 

packed <- a. packed; 

csize <- WordsForType[UnderType[csei <- a.componenttype]]; 
isei <- a. indextype; 
END; 
arraydesc «> 

WITH aa: (seb+UnderType[a. describedType]) SELECT FROM 
array «> 
BEGIN 

packed «- aa. packed; 

csize ^ WordsForType[UnderType[csei ^ aa.componenttype]]; 
isei <- aa. indextype; 
END; 
ENDCASE; 
ENDCASE; 
WITH (seb + UnderType[isei]) SELECT FROM 
subrange ■> i ♦- i - CARDINAL[origin] ; 
ENDCASE; 
IF packed THEN 
BEGIN 

sop. space *- 8; 
WITH s:sop.baddr SELECT FROM 

short »> s. shortAddr ^ [s. shortAddr + i/2]; 
long »> s . longAddr . 1 i <- s . longAddr . 1 i + i/2; 
ENDCASE; 
sop.baddr.bd ♦- IF i MOD 2 « THEN ELSE 8; 
END 
ELSE WITH s:sop.baddr SELECT FROM 

short => s. shortAddr <- [s. shortAddr + i*csize]; 
long «> s . longAddr . 1 i <- s . longAddr . 1 i + i*csize; 
ENDCASE; 
sop.tsei ^ csei; 
sop.sei *- SymDef s. ISENul 1 ; 
FOR j IN [0. .n) DO 

Display[sop. @FR. FALSE]; 

IF -packed THEN WITH s:sop.baddr SELECT FROM 
short «> s. ShortAddr <- [s. shortAddr + csize]; 
long «> s . longAddr . 1 i ♦- s . longAddr . 1 i + csize; 
ENDCASE 
ELSE sop.baddr ♦- addbitaddrs[sop . baddr , ful lbitaddress[wd : short[[0]] , bd :8]]; 
IF j ^ n-1 THEN lODef s .Wr i teStr ing[" , "L]; 
ENDLOOP; 
RETURN 
END; 
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END; 

Istring: PUBLIC PROCEDURE [s: STRING, i, n: CARDINAL] ■ 
BEGIN 

so: SymbolObJect; 
sop: SOPointer ^ 6so; 
ss: StringDefs.SubStringDescriptor; 
StringCTXIndex: SymDef s .CTXIndex ^ L00PH0LE[6]; 

BEGIN OPEN DebugMiscDefs, sop.stbase; 

InitSOP[sop]; 

IF ~Lookup[s. FALSE, sop. FALSE, mod] THEN SIGNAL LookupFailCs] ; 

SELECT TypeForm[sop.tsei] FROM 

pointer =»> sop.baddr.wd ^ short[GetVa1ue[sop]]; 

ENDCASE => GOTO notastring; 
WITH (seb + UnderTypeCsop.tsei]) SELECT FROM 

pointer => IF TypeForm[pointedtotype] ff record OR 

FieldContext[sop.stbase, pointedtotype] ^ StringCTXIndex 
THEN GOTO notastring; 

ENDCASE => GOTO notastring; 
WITH sop.baddr SELECT FROM 

short «> ss ♦- [LOOPHOLE[shortAddr, STRING], i, n]; 

ENDCASE => ERROR; 
DebugUti1ityDeFs.UserWriteSubString[@ss]; 
RETURN 
EXITS 

notastring »> 

BEGIN IODefs.WriteString[" not a STRING"L]; SIGNAL DebugAbort END; 
END; 
END; 

Ideref: PUBLIC PROCEDURE [var: STRING] = 
BEGIN 

so: SymbolObject; 
sop: SOPointer <- @so; 
tsei: SymDefs.CSEIndex; 
FR: FormatRecord <- FormatRecord[2, '=. lODefs.CR, lODefs.NUL. lODefs.NUL, TRUE. TRUE]; 

BEGIN OPEN DebugMiscDefs, sop.stbase; 

InitSOP[sop]; 

IF ~Lookup[var, FALSE, sop, FALSE, mod] THEN SIGNAL LookupFail [var]; 

sop.baddr.wd <- short[GetValue[sop]]; 

tsei <- UnderType[sop. tsei]; 

WITH (seb + tsei) SELECT FROM 

pointer => sop. tsei <- pointedtotype; 

ENDCASE => 

BEGIN IODefs.WriteString[" not type POINTER"L]; SIGNAL DebugAbort END; . 
sop.sei <- SymDef s. ISENull ; 
WriteEOL[]; 

Disp1ay[sop, @FR, FALSE]; 
RETURN 
END; 
END; 

lastexpression: INTEGER; 

lexpression: PUBLIC PROCEDURE « 
BEGIN OPEN lODefs; 

v: INTEGER =« DebugMiscDefs . DReadNumber[l astexpression , 10] ; 
WriteString[" « "L]; 

WriteNumber[v.NumberFormat[ 10. FALSE, FALSE, 1]]; Wr 1 teChar[ 'D] ; 
WriteStringC" = "L]; 

Wr iteNumber[v.NumberFormat[8, FALSE, TRUE, 1]]; WriteChar[ 'B] ; 
IF V < THEN 

BEGIN 

WriteString[" « "L]; 

Wr i teNumber[v , Number Format[ 10 , FALSE , TRUE , 1]] ; 

WriteChar['D]; 

END; 
lastexpression ^ v 
END; 

--miscen aneous commands 

IgnoreComment: PUBLIC PROCEDURE « 
BEGIN OPEN lODefs; 
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s: STRING <- [100]; 

IF ReadChar[] # '- THEN BEGIN WritoLine[" ?"L]; RETURN; END 

ELSE WriteChar['-]; 

ReaclLine[s]; 

RETURN 

END; 

DisplayEvalStack: PUBLIC PROCEDURE " 
BEGIN OPEN lODefs; 
i: CARDINAL; 

c + a + Q« CnntrolDfifs StriteVectop* 
Dstate: DESCRIPTOR* FOR ARRAY OF UNSPECIFIED ^ DESCRIPTOR[0state , SIZE[ControlDef s .StateVector]] ; 

IF DDptr.StatePtr « NIL THEN 

BEGIN WriteString["emptyl"L]; RETURN END; 
FOR i IN [0. .LENGTH[Dstate]) DO 

Dstate[i] ^ DebugUtil ityDef s .MREAD[DDptr .StatePtr+i] 

ENDLOOP; 
IF state. stkptr = THEN 

BEGIN WriteString["emptyl"L]; RETURN END; 
FOR i IN [0. .state. stkptr) 

DO WriteCharC ]; WriteOctal [state. stk[i]] ENDLOOP; 
RETURN 
END; 

END. . . 



